; ORIGINAL: 3dt2.1/examples/schemers/consts.scm
;;
;; consts.scm
;;
;; A few essential basic constants, just in case your initialization
;; process does not include loading  acis.scm.
;;
;; Edward C. Martin, Schemers Inc.
;; 05 February 1994
;;

(provide 'consts)

(define ON #t)
(define OFF #f)
(define PI 3.14159265358979323846)
(define BLACK (color:rgb 0 0 0))
(define RED (color:rgb 1 0 0))
(define GREEN (color:rgb 0 1 0))
(define BLUE (color:rgb 0 0 1))
(define CYAN (color:rgb 0 1 1))
(define YELLOW (color:rgb 1 1 0))
(define MAGENTA (color:rgb 1 0 1))
(define WHITE 7 (color:rgb 1 1 1))

;; end of file  consts.scm
